home *** CD-ROM | disk | FTP | other *** search
/ 74.208.221.89 / 74.208.221.89.zip / 74.208.221.89 / login1 - Copy.aspx < prev    next >
Text File  |  2015-03-14  |  899b  |  19 lines
  1. ∩╗┐<%@ Page Language="VB" Debug="true" %>
  2. <script runat="server">
  3.     Dim mycon As New conValue()
  4.     Sub page_load()
  5.         mycon.con("Select count(*) as count from w5_shop_profiles where email = '" & Request.Form("email") & "' AND password = '" & Request.Form("password") & "'", 1, 2)
  6.         If (mycon.Temp1 = 0) Then
  7.             Response.Redirect("login.aspx")
  8.         Else
  9.             mycon.con("Select clname,userid from w5_shop_profiles where email = '" & Request.Form("email") & "' AND password = '" & Request.Form("password") & "'", 1, 1)
  10.             While mycon.sql1.Read
  11.                 Response.Cookies("userid").Value = Trim(mycon.sql1("userid"))
  12.                 Response.Cookies("uname").Value = Trim(mycon.sql1("clname"))
  13.             End While
  14.             mycon.sql1.Close()
  15.             Response.Redirect("index.aspx?msg=Done")
  16.         End If
  17.     End Sub
  18. </script>
  19.